home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / EditScript.AmiCAD < prev    next >
Text File  |  2000-11-12  |  2KB  |  69 lines
  1. /* Edition d'un script à l'aide de l'éditeur de texte AmiTex */
  2. /* Version 1.00: 16 juillet 1997, Chez Corbin */
  3. /* Version 1.01: 9 novembre 2000 (localisation anglais/français) */
  4. /* $VER: EditScript.AmiCAD 1.01 (© R.Florac, 9/11/2000) */
  5. /* Chargement automatique d'un script dans AmiTex depuis AmiCAD */
  6. /* L'appel se fait en sélectionnant l'un des onze menus Macros/ARexx
  7.  * et en enfonçant en même temps la touche CONTROL (Ctrl).
  8.  *
  9.  * La ligne 20 doit être modifiée pour être conforme à votre système */
  10.  
  11. /* This script is called for loading a script file in a text editor
  12.  * while working with AmiCAD.
  13.  * Push the CONTROL key while selecting an ARexx menu with AmiCAD
  14.  * to call it.
  15.  * This script is for my text editor Amitex, adapt it
  16.  * to any other text editor to suit to your needs. */
  17.  
  18. signal on error             /* pour l'interception des erreurs */
  19. signal on syntax
  20.  
  21. options results
  22.  
  23. parse arg script            /* récupération du nom du script */
  24.  
  25. 'LANGUAGE'
  26. if result="français.language" then fr=1
  27. else fr=0
  28.  
  29. if script = "" then do
  30.     if fr=1 then 'REQFILE("Fichier script à éditer", "Travail:AmiCAD/ARexx", "")'
  31.     else 'REQFILE("Script file to edit", "Work:AmiCAD/ARexx", "")'
  32.     script = result
  33.     if script="" then exit
  34. end
  35.  
  36. port = ADDRESS()                    /* lecture du nom du port AmiCAD */
  37.  
  38. address command
  39. if ~show(p, "AMITEX") then do       /* à améliorer... (AMITEX0, AMITEX1...) */
  40.     f=0                 /* il n'y avait pas de fenêtre ouverte */
  41.     'run > nil:' "SYS:tools/Amitex/AmiTex"  /* chargement de l'éditeur */
  42.     waitforport "AMITEX"
  43. end
  44. else f=1                /* il y a déjà une fenêtre active */
  45.  
  46. ADDRESS(AMITEX)
  47. cr='0a'x
  48.  
  49. if f=1 then 'NEW("")'               /* demande l'ouverture d'une autre fenêtre */
  50. if ~exists(script) then script=script||".AmiCAD"
  51.  
  52. 'LOAD("'script'")'                  /* demande le chargement du script */
  53.  
  54. exit
  55.  
  56. /* Traitement des erreurs, interruption du programme */
  57. syntax:
  58. address (port)
  59. erreur=RC
  60. if fr=1 then 'MESSAGE("Script EditScript.AmiCAD :"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  61. else 'MESSAGE("EditScript.AmiCAD Script:"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  62. exit
  63.  
  64. error:
  65. address (port)
  66. if fr=1 then 'MESSAGE("Script EditScript.AmiCAD :"+CHR(10)+"Erreur en ligne 'SIGL'")'
  67. else 'MESSAGE("EditScript.AmiCAD Script:"+CHR(10)+"Error in line 'SIGL'")'
  68. exit
  69.